﻿Public Class LichSuThuChiForm

    Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click
        Me.Dispose()
    End Sub

    Private Sub btnShowReport_Click(sender As System.Object, e As System.EventArgs) Handles btnShowReport.Click
        If rbChiThang.Checked Then
            Dim rpt As New rptLichSuChiThang
            rpt.SetParameterValue("MaUser", MainForm.current_user.MaUser)
            CrystalReportViewer1.ReportSource = rpt
        ElseIf rbChiNam.Checked Then
            Dim rpt As New rptLichSuChiNam
            rpt.SetParameterValue("MaUser", MainForm.current_user.MaUser)
            CrystalReportViewer1.ReportSource = rpt
        End If        
    End Sub

    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
        If rbThuNam.Checked Then
            Dim rpt As New rptLichSuThuNam
            rpt.SetParameterValue("MaUser", MainForm.current_user.MaUser)
            CrystalReportViewer1.ReportSource = rpt
        ElseIf rbThuThang.Checked Then
            Dim rpt As New rptLichSuThuThang
            rpt.SetParameterValue("MaUser", MainForm.current_user.MaUser)
            CrystalReportViewer1.ReportSource = rpt
        End If
    End Sub
End Class